Решение:

• Запустите Word и нажмите <Alt>+<F11>. В окне Project Explorer раскройте узел Normal -> Modules и щелкните два раза мышью по строке NewMacros.
• Вставьте в модуль NewMacros следующие строки для функции fMultiply():

Public Function fMultiply(nM1 As Integer, nM2 As Integer)

fMultiply = nM1 * nM2

End Function

Код для процедуры AutoNew() может выглядеть так (измененный код выделен полужирным):

Public Sub AutoNew()

Dim nMult1 As Integer

Dim nMult2 As Integer

Dim nResult As Integer

nMult1 = CInt(InputBox("Введите первое число: "))

nMult2 = CInt(InputBox("Введите первое число: "))

nResult = fMultiply(nMult1, nMult2)

Selection.InsertAfter nResult

Selection.Collapse wdCollapseEnd

End Sub

Для того, чтобы закомментировать код AutoNew(), выделите весь код для этой процедуры (включая Public Sub AutoNew() и End Sub) и нажмите на кнопку Comment Block в панели инструментов Edit.

Получить этот учебник в формате PDF (Acrobat Reader) или DOC (Microsoft Word)